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FACILITY: VAX MACRO ASSEMBLER OBJECT LIBRARY 
ABSTRACT: 


The VAX=11 MACRO assembler translates MACRO-32 source code into object 
modules for input to the VAX-11 LINKER. 


ENVIRONMENT: USER MODE | 
AUTHOR: Benn Schreiber, CREATION DATE: 9-OCT-1978 | 
MODIFIED BY: 


V03-001 MTROO32 Mike Rhodes 21-Apr-1983 
Fix computation of available opcode page space. 
v01.05 CNHO049 Chris Hume 12-Feb-1981 
Added BB and BW to inarand descriptor List for .OPDEF 
directive. 
v0O1.04 RNOO23 R. Newland 3-Nov-1979 
New woneeer < codes to get error messages from system 
message f 
v01.03 RNOOOS R. Newland 11-Aug-1979 
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om 


.SBTTL DECLARATIONS 
: INCLUDE FILES: | 
: MACROS: 

SHAC GENVALDEF {GENERAL VALUES 


CK OFFSETS 
;DEFINE OPERAND DESCRIPTORS 
SMACASGDEF : Define message codes 


: EQUATED SYMBOLS: 


: OWN STORAGE: 
.PSECT MAC$RO_DATA,NOWRT,GBL,NOEXE,LONG 
LIST OF LEGAL OPERAND DESCRIPTORS. THE VALUE IS THE OPERAND DESCRIPTOR 
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3; WORD VALUE. 
INSYMP 0 | 
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T_SYX BB, Phd 88 
“SYX BW,OP 


$MA D$M_BW 
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MQ,OPDSM_MODIFY+Q 
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OPCODES 1g~sE0- 138% Oi? rd Oy Macro v04-00 Page 
POINT TO DEFINE AN OPCODE SEP-1984 EMACRO SRe ACTOPC.MAR;1 

i3 -SBTTL DFNOPC ENTRY POINT TO DEFINE AN OPCODE 

140 ;++ 

ve ; FUNCTIONAL DESCRIPTION: 

128 g THIS ROUTINE IS CALLED WHEN THE .OPCODE DIRECTIVE IS PARSED. 

144 ; THIS ROUTINE COMPLETELY PROCESSES THE DIRECTIVE, AND DEFINES 

122 ; THE OPCODE FOR LATER REFERENCE. 

133 -PSECT MACSRO_CODE_P1,NOWRT,GBL,LONG 

13) DFNOPC:: yh gE Be rit ID EXPR DCOMMA 
1 ¢ PUSHR #*M<R7,RB,R12> VE an TER 

15 MOVL W*MACSAL VALSTACK= 8CR7), ¥¢ :GET § YMBOL Block ADDRESS 

154 mOvZBL SYMSE. NAME (R6) ,RO : Get offset to name 

155 SUBL »R6,R1 ; Com mpute address of name 

156 movcS RO.(R1),#0, “4 Lge _MAXLEN#1, ; Copy symbol count/name to TMPSYM 
157 W“MACSAB_TMPS 

158 BSBW MACSHASH n ep te | HASH VALUE FOR SYMBOL 

159 BSBW MACSSRCUSRSYMTB ;LOOK U P SYMBOL TO GET PREDECESSOR 
160 BLBS RO,1 WE ALWAYS SHOULD BRANCH HERE 

161 CALLS #0 ¥ areen INTERN Z0R WE HAVE A REAL PROBLEM 

168 RW MACSABORT 1 

163 10$: OVL SYMS$L OE NR CRG) sree “LINK (R2) bg be THIS re BLOCK 
164 MOVAB W*MACSAB_TMPBUF ,R O TEMPORARY BUFFE 

192 CLRL R8 CLEAR tount OF OPERAND DESCRIPTORS 
1er ; COLLECT OPERAND DESCRIPTORS IN MACSAB_TMPBUF WITH A COUNT IN R8 

169 GET_ARG_DESC: 

170 BSBW MACSSKIPSP ;SKIP SPACES 

171 CMPB R10,4CR ;ARE WE DONE? 

\7¢ BEQL 40$ sI1F EQL YES 

17 CMPB R10,#*A/,/ 3; COMMA? 

174 BNEQ 5$ ;1F NEQ N 

175 BSBW MACSGETCHR sYES--SKIP IT 

176 5$: BSBW MACSSYMSCNUP ;SCAN A SYMBOL 

177 BLBS RO,10 se IF GOT ONE 

178 SMAC oERR ILLARGDESC Els 0, beeet aii oument descriptor 
179 BSBW #MACSERRORL ‘REPORT THE ERR 

180 MOVL #CR,R10 NO SENSE IN PROP ING ON ERRORS 

13) BRB 60 FINISH UP 

1 ¢ 10$: MOVAB W*MACSG_ARGDSCTAB,RS5 *POINT " LIST OF LEGAL DESCRIPTORS 
13 BSBW nACese C“LIST :SEE IF A tEGAL DESCRIPTOR 

184 BLBS ;1F LBS YES 

185 SMAC ERR IL aptea ty ; Now-get message code 

1 § BSBW ish pas RLN i ISSUE oes TO PASS 2 

1 CLRW USE DESCRIPTOR OF 

1 3 BRB 30$ ‘CON INUE 

1 $ps: MOVW SYM$L_VAL(R1) ,(R7)+ : COPY ARG DESCRIPTOR VALUE 

190 50$: INCL COUN NT ARG DESCRIPTOR 

13) BRB GET_ARG_DESC [LOOP TILL DONE 

198 ; ARG DESCRIPTORS HAVE BEEN ACCUMULATED. DEFINE THE OPCODE NOW 


MACSACTOPC DEFINE USER OPCODES 16-SEP-1984 01329388 yaKeyas Macro V04-00 
v04-000 DFNOPC ENTRY POINT TO DEFINE AN OPCODE -SEP-1984 01:47:00 (CMACRO.SRCJACTOPC.MAR;1 
57 0000'CF D gr? 195 40$ MOVL W*MACSGL_OPCPGPTR,R7 ;GET POINTER TO CURRENT PAGES 
14 1 7C¢ 138 BNEQ 60$ ;BRANCH IF te ts 
FF7F* 3 Ove 197 508 BSBW  MACSALL_2_PAGES :NO-ALLOCATE PAGES 
57 28 4 1 198 MOVL RO,R7 5 POINTS TO THE PAGES 
0000'CF 0 g 084 199 MOVL RO,W*MACSGL_OPCPGPTR ;SAVE POINTER TO CURRENT PAGES 
80 O3F8 8F # 8 9 8 MOVZWL 9 #<<512%2>=-85, (RO)+ ;SET BYTE COUNT IN FIRST WORD 
80 04 AO 7 5 1 MOVA 4(RO), (RO) + ;SET POINTER TO FIRST FREE 
50 58 02 C 09 8 60$: MULL #2,R8,R ;CALCULATE # BYTES FOR DESCRIPTORS 
51 04 A6 9A 0096 0 MOVZBL SYMS$B_NAME(R6),R1 ; Get size of symbol count/name 
er 33 C 4946 Be SUBL . ; and subtract from space available. 
67 OD c¢ 09D 5 SUBL #SYMSK_BLKSIZ, (R7) ;_ Adjust size for the symbol block. 
67 50 C Boag 89 SUBL 8 (R7J ;ROOM ON THESE PAGES? 
09 «1 A BLSS 50$ SIF LSS NO--ALLOCATE NEW PAGES 
5¢ 04 A7 0 00AS 08 MOVL 4(R7),R12 ;YES--GET POINTER TO FREE SPOT 
50 56 51 (C3 OOA9 09 SUBL3 R1,R6,R ; Get address of symbol count/name 
6c 60 51 28 OOAD 210 MOVCS R1,(RO), (R12) : and copy into block 
63 QOO00'CF DO 00B1 11 MOVL W*MACSGL_OPCLSTPT,(R3) ; Link into front of List 
0000'CF 83 D 00B6 \¢ MOVAL (R3)+,W*MACSGL_OPCLSTPT 
83 04 A6 90 00BB 1 MOVB SYMSB_NAME (R6), (R3)+ ; Fill in symbol offset 
83 DF OOBF 14 PUSHAL (R3)+ ;REMEMBER WHERE VALUE GOES 
00C1 215 ; (AND BUMP POINTER) 
83 B64 00C1 216 CLRW (R3)+ ;CLEAR FLAGS 
83 §6OE 90 00C3 17 MOVB #DOPCODE, (R3)+ ; TOKEN VALUE IS OPCODE 
83 58 90 00C6 18 MOVB RB, (R3)+ ;SEGMENT IS OPERAND COUNT 
50 58 02 cS 00Cc9 19 MULL3 #2,R8,RO0 IGURE OPERAND BYTE COUNT 
63 O000'CF 29 28 O0CD $59 MOVCS RO,W*MACSAB_TMPBUF,(R3) ;AND COPY DESCRIPTO 
04 A7 5 DO 00D3 221 MOVL R3,4(R7) ;SET POINTER TO NEW FIRST FREE 
50 8EDO 00D7 $5¢ POPL RO RETRIEVE VALUE A 
1180 8F BA QODA 22 POPR #*M<R7,RB,R12> sRESTORE REGISTERS 
60 FFFC'CF47 DO OODE 224 MOVL W*MACSAL_VALSTACK=4(R73,(RO) ;SET OPCODE VALUE 
02 AO BS O0E4 225 TSTW © 2(RO) :SEE IF VALUE OK 
08 13 O0E7 $56 BEQL 80$ sIF EQL YES 
00E9 227 SMAC_ERR ILLOPDEFVL 3; No--report the error now 
FFOF®’ 30 OOEE sso BSBW MACSERRORLN oe 
05 OOF1 $§ 80$: 
OOF2 230 
OOF2 231 - END 
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Macro V04-00_ rege 8) 
ES "Br Seen 188s 01:47:00 FMACKO SReTAcT eC sak: 1 | 
DEFINE USER OPCOD ~SEP= : ; 
TOPC ABL ~ 
Symbol table DSUP = FOO p Re RERABL : : 
y : eat Re Se eS RS 
= DUPB p 5 R = 0 ° 
Na = 000 3010 DUPC s 0 8 KENTRY > 00071 | 
AH : G9009006 DUPE = $0 089 KEVEN. = 90000058 
AL . 01 DUPM “ 7 K ~ a00005p 
AO = 0000000 DUPO 4 909 O2A thay = Q000003A 
ARGSK SIZE = 090003e DUPX s $6080 0 KFLOAT > atte ad 
ee 8) DXOR . 299004 KGFLOAT = 00000056 
Al = 000 1 ERRO1 a 000 K = 0000008 
B s G0u000¢0 ERRO = 0000 4 KHFLOAT a 444 
BLNK 000000 ait = ai KIDENT = 90000046 
CHRSA_C ® 90000020 ROG = 90000008 KIF = 00000048 
CHRSMCILL CAR = 00000010 ERS = 00000005 KIFF = 00000049 
im = 00000006 T ae 
Ta aR: SSS mS He He: 
CHRSM_SYM_ 00004 : = 000000 
EMBT-ETNRN, = £89999 SF B00 eS RE 
is wd = 00000C PC : 
CHRSVICVTLE. = §0090086 F . G000A008 04 KL IBRARY = ponoogs 
EHRSV-NOCOT = 0000007 SET_ARG.DESC 7 9000035 ccs = 99000061 
“ = 00000004 GOACSY ~ 4 10 = 000 
CHRSV_NUM_BE saat = 000090 KLONG = 00000050 
CHRSV"SPALMSK = 0000000 H HS7 = 0000007F KMACRO = 90000051 
CHRSV"SYM_CH1 = 0000002 at ate 2 = 0000002D KMCALL = 00000054 
es A LA a 46 9495 HY z asain 4 KMDELETE = 0000005 
CHRSVSYM_DLM = 0000900 1 PsK BUFSIZ = 00000 + KMEXIT s $0090088 
¥ = 0000¢008 INSYMT = 9000528 RCO KNARS = 90000064 
= 0000001D INSYMP = 00 00 se R 03 NCHR = 0000007A 
one = 00000016 INSYTM = 000 KNCROS ; ago00068 
s = 000015F4 IST i 
art Rew 2 es aie: Baa 
= 00000028 KADDRESS nd 0005A = 00 
OBUP = 00000018 KALIGN = 00 033 KODD = 00000075 
DCLS = 00000010 RASCIC = On0 ORS KOPDEF = Soooe se | 
DCOLON = 0000000F KASCID me 49444 KPACKED = 00000065 | 
DCOMMA = 9000001¢ KASCI I = 00000054 KPAGE = 90000073 | 
DDIV = 00000008 KASCIZ = Booboo se KPRINT = 00000066 | 
DEOL = 00000011 KBLK = Boapnnsh KPSECT . 003D | 
DEG 90000000 RG 04 = KBLKA = RoRnoee KQUAD = 00000060 | 
hye = 0000002¢ KBLKD . 42 KREF 1 = 00000084 
DGUP <4 sa 4 BLKF = 000000 KREF 16 = 0000006E 
DINTEGER = 0000002D KBLKG = 0000007E KREF2 - 00006 
piny = 000008 KeLrs = 900007F KREF4 = $0000 0 
DMASK 1A KBLKO = b8 0 KREPT 4 8 06 
= = 00000044 RESTORE . 
porcooe = SOOODDOE ae: a A me 
oo = 9 09016 2 jhe = $000 2 KSGNB - ne 
DPLUS = 00 pit KDEBUG -< 0000078 en = 00000069 
DPOUND : 1 KDOUBLE = 00000039 
DSQOPN = 0000 
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OPCPGPTR 
ARGDSCTAB 00000228 RG 
~ILLOPDEFVL= 00709112 
MACTRT 
MAC_SUBSYS 
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Symbol table MACRO.SRCJACTOPC.MAR; 1 


SYMSV_SUPR = 00 E 
SYMSV_WEAK s 1 
SYMSV-XCRF = f 
SYMSW~FLAG 
TAB = : 9 
vB = 0081 
vd = f 8 
Mi = BOOAORS 
= 

VH = 09009090 
vb = $0000090 
va = $o000088 
Vid = 0000008 
W = 0000000 
WB = 00000061 
wd = 0000C068 
wF = 00008064 
WG = 0000A068 
WH = 00009070 
WL = 00000064 
wO = a4 ie od 
wQ = 0000006 
wie! = 00000062 
x1 = 00000400 
x2 = 0000000F 

fmm com ene mewn anawe + 

; Psect synopsis ! 
PSECT name Allocation PSECT Nc. Attributes 
> BS « 00000000 0.) 00 ¢ O.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
. BLANK . 00000000 0.) O1 ¢ -) NOPIC USR CON’ REL LCL NOSHR EXE RD WRT NOVEC BYTE 
SABSS 00000013 ¢ 19.3 Ge ¢ ¢°% NOPIC USR CON S LCL NOSHR EXE RD WRT NOVEC BYTE 
MACSRO_DATA 00000234 ( 564.) 03 ¢ -) NOPIC USR CON REL GBL NOSHR NOEXE RD NOWRT NOVEC LONG 
MACSRO_CODE_P1 OOOOOOF2 ( 242.) 04 ( 4.) NOPIC USR CON’ REL GBL NOSHR EXE RD NOWRT NOVEC LONG 

Sumeniinnnnnl 
! Performance indicators ! 

Phase Page faults CPU Time Elapsed Time 
Initialization 29 8:90: 00-06 00:00:01 -60 
Command processing 103 0:00: Q- 4 00: Ria e 
Pass 1 199 0:00:03.11 0:00:14.52 
Symbol table sort 0 00:00: 3-28 0: B20) 8 
Pass 2 4 0:00:00.6 0:00:02.38 
Symbol table output 8 0:00:00.15 0: 338 8 
Psect synopsis output 0:00:00.02 0:00:00. 
Cross-reference output 0 0:00: 98 808 08-2 
Assembler run totals 426 0:00:04. 0:00:22.81 
The working set Limit was 1050 pages. 


s 
27628 bytes (54 pages) of virtual memory were used to buffer the intermediate code. 


CSE ae a A So AR re AO 8 El ne ; 


MACSACTOPC 
VAK=-11 Macro Run Statistics 


There were 30 pages of symbol ——, — ecten t d to hold 446 non-local 
or source Lines were read in Pass ys ing object records in Pass 
4 pages of virtual memory were ~h tb ym ne 10 macros. 


DEFINE USER OPCODES 


dF enre encoun enone ma omanwaeemaon $ 


! Macro Library statistics ! 


¢mowmewoatrrasvneeace eneceenmes + 


Macro - Library name Macros defined 


-$255$0U age: Peace. JIMACRO.MLB; 1 7 

SYSLIGISTARLET ALB; 32 ; 
refhire (all Libraries) 1 
537 GETS were required to define 10 macros. 


There were no errors, warnings or information messages. 


EP=19 


meh 1:59:49 VAX/VMS Macro v04-00 
4 01:47:00 CMACRO.SRCJACTOPC.MAR;1 


he 9 local symbols. 


MACRO/LIS=LIS$:ACTOPC/OBJ=OBJ$:ACTOPC MSRC$:ACTOPC/UPDATE=(ENH$:ACTOPC)+LIB$:MACRO/LIB 
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